home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / amos / amosprog.lha / Rainbow.amos / Rainbow.amosSourceCode
AMOS Source Code  |  1995-10-02  |  599b  |  27 lines
  1. '(c) Marcin Szumiela 1994
  2. 'Demo of color registers in AmosPro  
  3.  
  4. Screen Open 0,320,256,2,Lowres : Curs Off : Cls 0 : Flash Off 
  5. Palette $0,$FFF
  6. Paper 0 : Pen 1
  7. Centre At(,10)+"Demo of Rainbow Effect,"
  8. Centre At(,12)+"on 2 colors screen."
  9. Centre At(,14)+"......."
  10. Centre At(,18)+"press left mouse button..."
  11.  
  12. '
  13. Do 
  14. For A=0 To 4095 Step 50 : Doke $DFF182,A : Next 
  15. Exit If Mouse Click<>0
  16. Loop 
  17.  
  18. Cls 0
  19. Paper 0 : Pen 1
  20. Centre At(,10)+"And now flashing"
  21. Centre At(,12)+"mouse pointer."
  22.  
  23. Do 
  24. For A=0 To 4095 Step 50 : Doke $DFF1A4,A : Doke $DFF1A6,4095-A
  25. Doke $DFF1A2,A : Next 
  26. Exit If Mouse Click<>0
  27. Loop